home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / logo1a / slavko.frm next >
Text File  |  1999-10-14  |  5KB  |  147 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form3 
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form3"
  7.    ClientHeight    =   2730
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   3075
  11.    FillColor       =   &H00FFFFFF&
  12.    LinkTopic       =   "Form3"
  13.    ScaleHeight     =   2730
  14.    ScaleWidth      =   3075
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   100
  19.       Left            =   1920
  20.       Top             =   2160
  21.    End
  22.    Begin VB.Timer Timer2 
  23.       Interval        =   3000
  24.       Left            =   2400
  25.       Top             =   2160
  26.    End
  27.    Begin MSComctlLib.ImageList ImageList 
  28.       Left            =   120
  29.       Top             =   2040
  30.       _ExtentX        =   1005
  31.       _ExtentY        =   1005
  32.       BackColor       =   -2147483643
  33.       ImageWidth      =   74
  34.       ImageHeight     =   85
  35.       MaskColor       =   12632256
  36.       _Version        =   393216
  37.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  38.          NumListImages   =   13
  39.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  40.             Picture         =   "Slavko.frx":0000
  41.             Key             =   "s1"
  42.          EndProperty
  43.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  44.             Picture         =   "Slavko.frx":1D90
  45.             Key             =   "s2"
  46.          EndProperty
  47.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  48.             Picture         =   "Slavko.frx":6844
  49.             Key             =   "s3"
  50.          EndProperty
  51.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "Slavko.frx":B2F8
  53.             Key             =   "s4"
  54.          EndProperty
  55.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "Slavko.frx":FDAC
  57.             Key             =   "s5"
  58.          EndProperty
  59.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "Slavko.frx":14860
  61.             Key             =   "s6"
  62.          EndProperty
  63.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "Slavko.frx":19314
  65.             Key             =   "s7"
  66.          EndProperty
  67.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "Slavko.frx":1DDC8
  69.             Key             =   "s8"
  70.          EndProperty
  71.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "Slavko.frx":2287C
  73.             Key             =   "s9"
  74.          EndProperty
  75.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  76.             Picture         =   "Slavko.frx":27330
  77.             Key             =   "s10"
  78.          EndProperty
  79.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "Slavko.frx":2BDE4
  81.             Key             =   "s11"
  82.          EndProperty
  83.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "Slavko.frx":30898
  85.             Key             =   "s12"
  86.          EndProperty
  87.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "Slavko.frx":3534C
  89.             Key             =   "s13"
  90.          EndProperty
  91.       EndProperty
  92.    End
  93.    Begin VB.Shape Shape1 
  94.       BorderColor     =   &H005FCEEF&
  95.       BorderWidth     =   3
  96.       Height          =   1575
  97.       Left            =   555
  98.       Shape           =   5  'Rounded Square
  99.       Top             =   480
  100.       Width           =   1935
  101.    End
  102.    Begin VB.Image Image1 
  103.       BorderStyle     =   1  'Fixed Single
  104.       Height          =   615
  105.       Left            =   960
  106.       Top             =   600
  107.       Width           =   615
  108.    End
  109. End
  110. Attribute VB_Name = "Form3"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115.  
  116. 'Animated BMP, you may call it logo...
  117. 'Using a few controls create originaly logo for your app...
  118. 'Very easy and very cute
  119. '              Have a good time!
  120. '              sslavko@yubc.net
  121. '__________________________________________________________
  122. 'Click on Form to Unload it
  123.  
  124. Private Sub Form_Click()
  125. Unload Me
  126. End Sub
  127.  
  128. Private Sub Timer1_Timer() 'Set Timer1 and Custom of ImageList2
  129.  
  130. Static broj As Integer
  131. If broj = 0 Or broj = 13 Then
  132. broj = 1
  133. Timer1.Enabled = False
  134. End If
  135. Image1.Picture = ImageList.ListImages.Item(broj).Picture
  136. broj = broj + 1
  137.  
  138. End Sub
  139.  
  140.  
  141. Private Sub Timer2_Timer()
  142. Timer1.Enabled = True
  143. End Sub
  144.  
  145.  
  146.  
  147.